home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1998 December / cd joystick no99 decembre 1998.iso / Data / WIN95 / COMM / zow310.exe / INSTALL.FIL / SCRIPT / ZOCEVENT.ZRX < prev    next >
Encoding:
Text File  |  1996-08-26  |  2.1 KB  |  61 lines
  1. /*********************************************************************** 
  2.  
  3.    PLEASE SEE ZOCEVENT.DOC FOR A DESCRIPTION OF HOW TO USE THIS FILE
  4.  
  5. ***********************************************************************/
  6.  
  7.  
  8. /**********************************************************************/
  9. /* The line below exits at once -- remove it to make it all work      */
  10. /**********************************************************************/
  11.  
  12. EXIT  /* >>>>>>>  to make it all work delete this line  <<<<<<<<<<<<< */
  13.  
  14.  
  15.  
  16. /**********************************************************************/
  17. /* Parse the command line arguments                                   */
  18. /**********************************************************************/
  19. PARSE ARG Event " '" DeviceName "'" "'" DeviceOpts "'"
  20.  
  21.  
  22.  
  23. /**********************************************************************/
  24. /* Find out where FaxWorks is installed                               */
  25. /**********************************************************************/
  26. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  27. CALL SysLoadFuncs
  28. faxdir= SysIni("USER", "Fax", "ExeDir")
  29. faxdir= LEFT(faxdir,LENGTH(faxdir)-1)  /* remove trailing nul */
  30. faxrcv= faxdir||"fxrcv"
  31.  
  32.  
  33. /**********************************************************************/
  34. /* Here comes the big action ...                                      */
  35. /**********************************************************************/
  36. SELECT 
  37.     /* if ZOC was started *********************************************/
  38.     WHEN Event="OPEN" THEN DO
  39.         faxrcv "-off"
  40.     END /* WHEN */
  41.  
  42.     /* if a ZOC-device will be opened *********************************/
  43.     WHEN Event="DEVOPEN" THEN DO
  44.         /* nothing yet */
  45.     END /* WHEN */
  46.  
  47.     /* if a ZOC-device was closed *************************************/
  48.     WHEN Event="DEVCLOSE" THEN DO
  49.         /* nothing yet */
  50.     END /* WHEN */
  51.  
  52.     /* if ZOC was closed **********************************************/
  53.     WHEN Event="CLOSE" THEN DO
  54.         faxrcv "-on"
  55.     END /* WHEN */
  56.  
  57. END /* SELECT */
  58.  
  59. EXIT
  60.  
  61.